From 4edde99838ea37a5c0b9f569c1d41adf8b6bac9b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 May 1993 04:17:38 +0000 Subject: [PATCH] Make RCS warnings stop. --- lisp/iso8859-1.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el index 04a4e2bfcd3..34d0ac0d368 100644 --- a/lisp/iso8859-1.el +++ b/lisp/iso8859-1.el @@ -30,7 +30,7 @@ (require 'case-table) -(let ((table (standard-case-table))) +(let ((table (car (standard-case-table)))) (set-case-syntax 160 " " table) ; NBSP (no-break space) (set-case-syntax 161 "." table) ; inverted exclamation mark (set-case-syntax 162 "w" table) ; cent sign @@ -97,7 +97,7 @@ (set-case-syntax 223 "w" table) ; small sharp s, German (set-case-syntax 247 "_" table) ; division sign (set-case-syntax 255 "w" table) ; small y with diaeresis or umlaut mark - (set-standard-case-table (list (car table)))) + (set-standard-case-table (list table))) (provide 'iso8859-1) -- 2.30.2